'requestnotify title "Error" prompt "'readln(tempfile)'"'
call close(tempfile)
newvalue=''
end
end
end
else newvalue='selected'
end
end
if firstnum~='0' then firstnum=1
lastnum=sections
do while newnumber~='selected'
totalnum=lastnum-firstnum+1
if firstnum=0 then totalnum=totalnum-1
address SPOT
'requestresponse center title "Posting interval and name" prompt "'totalnum' sections of 'sections' will be posted'CR'(from 'firstnum' to 'lastnum')'CR'filename = 'name||CR||CR'Start uuencoding or change?" gadgets "Ok|First|Last|Name"'
if rc~=1 then select
when rc=2 then do
'requestnumber title "New value" prompt "Enter first section number"'
if rc=0 then if result>=0 then if result<=lastnum then firstnum=result
end
when rc=3 then do
'requestnumber title "New value" prompt "Enter last section number"'
if rc=0 then
if result>=firstnum then
if result<=sections then lastnum=result
end
when rc=0 then do
'requeststring title "New name" prompt "Enter new name" default "'name'"'
